home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / DFILL1.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  830b  |  37 lines
  1. ;  dfill1 -  fills holes in objects
  2. ;expects:  binary image in a
  3. ;******************************************
  4. #include timdefs.h
  5.  
  6. parms
  7.   int windis
  8. endparms
  9.  
  10. int num
  11. int count
  12. cls
  13. era x
  14. dest p
  15. show p
  16. copy a
  17. *windispl h (windis+NO_DITHER+WINLUT1)
  18. if (num = (label a)) == 0     ;separate objects & test image
  19.    print @8 "Something wrong with image!"
  20.    stop
  21. endif
  22. dest q
  23. for count = 1 to num step 1
  24.   mark p count          ;find object
  25.   keep qc red           ;keep bitplane 1 (RED)
  26.   binv qc red           ;invert
  27.   bbord qc green        ;put border in bitplane 2 (GREEN)
  28.   lpr4 qc green red     ;propagate from outside into object
  29.   binv qc green         ;take propagated result and invert
  30.   bit qc green          ;copy all bitplanes from green
  31.   *windispl i (windis+NO_DITHER)
  32. endfor
  33. stop
  34.  
  35.  
  36.  
  37.